> library(psych)
> c(.307,.466,.479,.277,.797,.792,.234,.384,.438,.422,.274,.709,.707,.540),14,1)
> fc <- matrix(c(.520,.330,.540,.100,.710,.710,.540,.560,.640,.360,.530,.460,.750,.740),14,1)
> factor.congruence(fa,fc)
     [,1]
[1,] 0.95